20210713 - Scooby Doo

# libraries
library(lubridate)
library(plotly)
library(readr)
library(tidyverse)

# data
scoobydoo <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-07-13/scoobydoo.csv')

scooby doo

Introduction

This weeks Tidy Tuesday dataset comes from Kaggle by way of manual data aggregation from plummye.

Every Scooby-Doo episode and movie’s various variables.

Took ~1 year to watch every Scooby-Doo iteration and track every variable. Many values are subjective by nature of watching but I tried my hardest to keep the data collection consistent.

If you plan to use this data for anything school/entertainment related you are free to (credit is always welcome).

Exploratory Data Analysis

IMDb Time Series

Series

Seasons

## get summary info for each season
season_info <- scoobydoo %>%
  mutate(
    year = year(date_aired),
    imdb = as.double(imdb),
    engagement = as.double(engagement)
  ) %>%
  group_by(series_name, network, season) %>%
  dplyr::summarise(
    season_start = min(date_aired),
    season_end = max(date_aired),
    n_episodes = n(),
    mean_imdb = mean(imdb, na.rm = TRUE),
    mean_engagement = mean(engagement, na.rm = TRUE)
  ) %>%
  ungroup() %>%
  filter(n_episodes > 1 & !(season %in% c("Movie", "Special"))) %>% # filter out movie events
  arrange(season_start, season_end) %>%
  mutate(
    season_id = as.double(row_number())
  )

season_info <- season_info %>%
  mutate(
    ranking = case_when(
      season_id == head(arrange(season_info, desc(mean_imdb)), 1)$season_id ~ "Best Season",
      season_id %in% head(arrange(season_info, desc(mean_imdb)), 3)$season_id ~ "Top 3 Season",
      season_id == head(arrange(season_info, mean_imdb), 1)$season_id ~ "Worst Season",
      season_id %in% head(arrange(season_info, mean_imdb), 3)$season_id ~ "Bottom 3 Season",
      TRUE ~ "Other"
    ),
    ranking = factor(ranking, levels = c("Best Season", "Top 3 Season", "Other", "Bottom 3 Season", "Worst Season"))
  )

The average Scooby Doo TV series has 2.0625 seasons. That’s so few!

Episodes

Monsters

Distribution of Gender

Distribution By Type

And subtype?

Or Species?

Who caught the monsters?

Who captured the monsters?

Who unmasked the monsters?

What percent of monsters got away?

Were not captured?

Which characters got the most scooby snacks?